home *** CD-ROM | disk | FTP | other *** search
- object TrialForm: TTrialForm
- Left = 239
- Top = 98
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Your details'
- ClientHeight = 365
- ClientWidth = 432
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Pitch = fpVariable
- Font.Style = []
- Scaled = False
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 19
- Top = 318
- Width = 393
- Height = 3
- end
- object Label1: TLabel
- Left = 52
- Top = 142
- Width = 35
- Height = 13
- Caption = 'Name:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 52
- Top = 175
- Width = 33
- Height = 13
- Caption = 'Email:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 19
- Top = 258
- Width = 79
- Height = 26
- AutoSize = False
- Caption = 'Where in the world are you?'
- WordWrap = True
- end
- object Label4: TLabel
- Left = 19
- Top = 289
- Width = 80
- Height = 26
- Caption = 'How do you use the web?'
- WordWrap = True
- end
- object TextLabel: TLabel
- Left = 19
- Top = 82
- Width = 393
- Height = 58
- AutoSize = False
- WordWrap = True
- end
- object textImage: TImage
- Left = 56
- Top = 31
- Width = 265
- Height = 30
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- end
- object EmailSource: TLabel
- Left = 6
- Top = 5
- Width = 103
- Height = 13
- AutoSize = False
- Visible = False
- end
- object Label5: TLabel
- Left = 19
- Top = 219
- Width = 393
- Height = 33
- AutoSize = False
- Caption =
- 'These next fields allow us to create better software for you. If' +
- ' you are not interested in helping us help you, leave the defaul' +
- 't answers.'
- WordWrap = True
- end
- object Button1: TButton
- Left = 19
- Top = 327
- Width = 81
- Height = 30
- Caption = '&Help'
- TabOrder = 0
- Visible = False
- end
- object Cancel: TButton
- Left = 334
- Top = 328
- Width = 81
- Height = 30
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- OnClick = CancelClick
- end
- object OK: TButton
- Left = 240
- Top = 328
- Width = 81
- Height = 30
- Cancel = True
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 2
- OnClick = OKClick
- end
- object Name: TEdit
- Left = 111
- Top = 142
- Width = 303
- Height = 21
- TabOrder = 4
- OnChange = ValidateData
- end
- object Email: TEdit
- Left = 111
- Top = 172
- Width = 303
- Height = 21
- TabOrder = 5
- OnChange = ValidateData
- end
- object Countries: TComboBox
- Left = 109
- Top = 261
- Width = 300
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 6
- OnChange = ValidateData
- end
- object WebUsage: TComboBox
- Left = 109
- Top = 292
- Width = 300
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 7
- OnChange = ValidateData
- end
- object ProxySettings: TButton
- Left = 125
- Top = 327
- Width = 92
- Height = 30
- Caption = 'Proxy settings...'
- TabOrder = 1
- OnClick = ProxySettingsClick
- end
- object DealCheck: TCheckBox
- Left = 19
- Top = 200
- Width = 393
- Height = 17
- Caption =
- 'Please notify me of future Sausage special deals and product ann' +
- 'ouncements.'
- State = cbChecked
- TabOrder = 8
- end
- end
-